I 



» 
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1 * GENERAL AUTOHATION, INC. ALL RIGHTS RESERVED 

3 * 

<♦ * PROGRAM NAME FPH-22 

5 * 

6 * MODEL NUMBER 8F022 

7 * 

8 * PURPOSE FORTRAN PHASE-22 

9 * 

10 * PROGRAMMER OICK WALLMANN 

11 * 

±2 **♦**♦*#***♦*•**#* REVISION LIST **#**»»♦♦**♦♦♦ 

13 * 

H» * RV DATE SCO BY REASON FOR CHANGE 

15 * 

16 * 

17 * 01 11/16/70 NONE RPH INITIAL RELEASE 

18 * 

jg * «* ¥*******«*****¥ «***■»#*#**** ***#♦*♦# **♦*•»♦*#»+** 

21 HDNG MPX FORTRAN ** STATEMENT ALLOCATION 

22 *m'» ******+#*****♦»#***#**♦♦*♦******»+*♦*** ♦**»**** 

23 *STATUS-VERSION 1, MODIFICATION 
2U * 

25 *FUNCTION/OPERATION- 

26 * * ASSIGNS THE RELATIVE AODRESSES TO STMNT 

27 * FUNCTIONS AND NUMBERED STATEMENTS 

28 * * INSERTS ALLOCATIONS INTO THE STRING 

29 * * CREATES THE SUBROUTINE INITIALIZATION CALL- 

30 * .CALL SU3IN, ALONG WITH ITS DUMMY ARGUMENTS 

31 * ♦ GENERATES THE STMNT FUNCTION RETURN CODE 

32 * 

33 *ENTRY POINTS- 

Zk * * NEO - PHASE 22 IS LOADED BY PHASE 21 VIA 

35 * THE ROLRX ROUTINE AND EXECUTION BEGUN 

36 * AT LOCATION LABLED NEO. 

37 * 

38 *INPUT- 

39 * * STATEMENT STRING 

*»0 * * SYMBOL TABLE 

'+1 * * FCOM 

hZ * 

k* *OUTPUT- 

i»i» * * STATEMENT STRING 

«5 * * SYMBOL TABLE 

k6 * * FCOM 

kl * 

*»8 *EXTERNAL REFERENCES- 

49 * * SUBROUTINES 

50 * ROLRX 

51 * * OTHER FORTRAN PHASES 

52 * NONE (NO PRINTING IS DONE IN THIS PHASE) 

5«» *EXITS- 

55 * * NORMAL- 

56 » PHASE 23 IS CALLED VIA ROLRX AND CONTROL 

57 * PASSED TO IT 

58 * * ERRORS- 

59 * OVERLAP- 
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60 * UPON DETECTING AN OVERLAP CONDITION 

61 * PHASE 23 IS CALLED VIA ROLRX. IF THE 

62 * OVERLAP OCCURRED IN THIS PHASE THEN THE 

63 * ERROR WORD IS SET PRIOR TO EXITING PHASE 
bk * SYNTAX- 

65 * THERE ARE NO SYNTAX ERRORS DETECTEO IN 

66 * THIS PHASE. 

67 * 

68 *TABLES/WORK AREAS- 

69 * * FCOH 

70 * * STRING AREA 

71 * * SYMBOL TABLE AREA 

72 * 

73 * ATTRIBUTES-NONE 
7k ♦ 

75 *NOTES- 

76 * » ASF IS AN ABBREVIATION FOR ARITH STMNT FUNC 

77 * * COMMENTS START IN COL kk 

78 * * THE SWITCHES USED BY THIS PHASE FOLLOW, 

79 * IF POSITIVE, THE SWITCH IS TRANSFER T 

80 * IF ZERO, THE SWITCH IS NORMAL N 

81 * TEMP5- 

82 * N NOT FIRST ASF STATEMENT 

83 * T AOOR OF FIRST ASF STATEMENT 
8*» * ASFSW- 

85 * T POINTER NOT PAST ASF STATEMENTS 

86 * TR- 

87 * H SUB* 5 INITIALIZE FOR ASF STATEMENTS 

88 * T 1 SUSP INITIALIZE FOR SUBP 

89 * T 2 STATEMENT ALLOCATION 

90 * 

92 HONG MPX FORTRAN *+ STATEMENT ALLOCATION 

_93_ _____jyBS__ %~-f: opZt" 

9*» * 

95 * SYSTEM AND FORTRAN EQUATES 

96 * 

t* " MEMRY EQU -/*S*F~ C$fr& MAXIMUM CORE SIZE 

98 PHSIZ EQU V320 MAXIMUM PHASE SIZE 

99 OVERL EQU MEMRY-PHSI7 PHASES 2-29 START 

100 FCOM EQU OVERL-22 FORTRAN COMM. TABLE 

101 PHNT9 EQU FCOM-56 PHASE TABLE 

102 ROLRX EQU PHNTB-50 INTERPHASE CALL 

103 AREA EQU OVERL+3*320+iO PRINT DATA ADDRESS 

104 PRINT EQU AREA+1 PRINT ENTRANCE 

105 * 

106 * FORTRAN COMMUNICATIONS AREA 

107 * 

108 ORG FCOM 

109 SOFS 3SS 1 START OF STRING 

110 EOFS 8SS 1 END OF STRING 

111 SOFST BSS 1 START OF STRING 

112 SOFNS BSS 1 LENGTH OF PROGRAM 

113 SOFXT BSS 1 SIZE OF WORK AREA (VARIES) 
11«» SOFGT BSS 1 SIZE OF CONSTANTS AREA 

115 EOFST BSS 1 END OF SYMBOL TABLE 

116 COMON BSS 1 RELATIVE ENTRY POINT 

117 CSIZE BSS 1 SIZE OF COMMON 

118 ERROR BSS 1 ERROR FLAG 

119 * BIT 15 OVERLAP ERROR 
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120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 

132 

133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 

156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 



FNAME 3SS 

BSS 

SORF 8SS 

CCWD BSS 

* 

* 

* 
* 

IOCS BSS 

* S£ 

* 

OFCNT BSS 

* 

LCOMN BSS 

* 

ICCER BSS 

* 

BSS 

***¥**#**** 

HONG 

ORG 
NEQ BSC 

* 



BIT 14 OTHER ERROR 
1 PROGRAM NAME 
1 2ND HO OF NAME 

1 SUBR (-) OR FUNG ( + ) 

1 CONTROL CARD WORD 

BIT 15 TRANSFER TRACE 

BIT 14 ARITHMETIC TRACE 

BIT 13 EXTENOEO PRECISION 

PIT 12 LIST SYMBOL TABLE 

3IT 11 LIST SUBPROGRAM NAMES 

BIT 10 LIST SOURCE PROGRAM 

BIT 9 ONE WORD INTEGERS 
1 IOCS CONTROL CARO WORD 

£ PHASE ONE FOR BIT PATTERNS 



1 
2 
2 
2 



DEFINE FILE COUNT 
SIZE OF INSKEL COMMON 
IOCS CONTROL CARD ERROR 
SYSTEM LOADER USE 



END OF FORTRAN COMMUNICATION 

AREA 
***************** **** ****** ************ 

MPX FORTRAN ** STATEMENT ALLOCATION 



OVERL 
L ENT 



BR TO INITIALIZATION 



SUBPR OC 
SLA 
BSC 
SLA 
3SI 
MDX 

BSC 

* 



TEST ROUTINE FOR SUBROUTINE 

IN CALL ARGUMENTS 

SUBR ENTRY POIN 

8 SHIFT INDICATOR BIT TO SIGN 
I SUBPR,- RETURN IF NOT ON 

16 CLEAR ACC 
3 OUTP-Z O/P TO O/P STRING 
L LISTL,1 INCR LIST LENGTH 
I SUBPR RETURN TO CALLING PROGRAM 



* 
INCPT 



* 

* 

H6200 

H7000 

H7800 

HQ400 

H5E00 

ZERO 

Z 



OC 
MDX 
MDX 
SLA 

BSC 



DC 
DC 

DC 
DC 
DC 
OC 
SOU 




1 1 
L N0RM,-4 


I INCPT 



/6200 

/7000 

/7800 

/0400 

/5E00 



ZERO 



LINK ENTRY POINT 

INCR XR1 POINTER 

DECR STMNT LENGTH COUNTER 

NOP IN CASE -OF SKIP 

RETURN 



CONSTANT 
CONSTANT 
CONSTANT 

DUMMY VAR EXTRACTOR 
GENERATED LA8EL TEST CON 
CONSTANT 
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180 

181 

182 

183 

18k 

185 

186 

187 

188 

189 

190 

191 

192 

193 

19tf 

195 

196 

197 

198 

199 
200 

201 

202 

203 

20«» 

205 

206 

207 

208 

209 

210 

211 

212 

213 

21k 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22«» 

225 

226 

227 

228 

229 

230 

231 

232 

233 

23** 

235 

236 

237 

238 

239 



ONE 

TWO 

THREE 

FOUR 

NORM 

H07FC 

HF800 

H6000 

HO000 

LOCC1 

L0CC2 

H5F00 

OUMVC 

H1800 

TR 

DUMVP 

H6008 

SUBIN 

STADR 

TESTN 

TINP 

LISTL 

OUTIO 

HF803 

H1000 

H07FF 

H7FFF 

HF300 

H0680 

H0880 

LDXL1 

SUBSC 

HFF80 



OC 
DC 
OC 

OC 

DC 

OC 

DC 

DC 

DC 

DC 

OC 

OC 

OC 

OC 

OC 

OC 

DC 

OC 

DC 

OC 

OC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

DC 

OC 

OC 

DC 

OC 

DC 



HFFFO 

H007F 

GLTBO 

TEMPI 

SBSCL 

H500C 

* 

* 

HD800 

HO00<» 

H8000 

W4F8O 

H0220 

HF000 

HFFFF 

TEMP3 

TEMP** 



OC 
OC 
OC 
OC 
DC 
OC 



OC 
OC 

OC 
OC 
OC 
OC 
OC 
OC 
OC 



/0001 
/0002 
/0003 

/00O*t 



/07FC 

/F800 

/6000 

/O000 





• 5FG0 



/1800 





/6008 

/1D00 



/800Q 



13 

13 



/F803 

/1000 

/07FF 

/7FFF 

/F30 

/068 

/088 

/5800 

/190 

/FF30 



/FFFO 
/007F 

GLABT-i 



/5O00 
/500C 



/D800 
/O00*» 
/8000 
MFSO 
/0220 
/F00O 
/FFFF 



/8000 



CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

NORM COUNTER 

MASK FOR NORM 

MASK FOR STMNT TYPE 

.FORMAT. -TYPE 

ARITH STMNT FUNC STMNT TYPE 

LOC CTR 1 
LOC CTR 2 
.BLANK. AT OUTPUT 
DUMMY VAR CTR 

DIMENSION BIT MASK SYM TBL 
TRACKSMITCH 

DUMMY VAR PT IN SYM TBL 
MASK 

CALL SUBIN 

SYM TBL ADOR COUNTER 
MASK 

.TESTNAME. 
TEMP I/P POINTER 
LIST LENGTH 
ADOR OF O/P 10 
MftSK F ELIMINATING NORM 
STMNT TYPE END 
MASK TO GET SYM TBL AODR 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
.LOX LI. 
.CALL SUBSC. 
MASK FOR .CALL SUBPROG. 
ALSO, .CALL IFIX. MINUS 
.CALL FLT. 
CONSTANT 
CONSTANT 

GENERATED LABEL TBL ORIGIN 
TEMPORARY STORAGE 
CONSTANT 

STMNT-ID FOR .SUBIN. 
FORMER ID OF INTEGER STMNT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

GONSTANT 

STMNT ID DEFN FILE STMNT 

CONSTANT 

TEMPORARY STORAGE 

TEMP4 INITIALLY NEGATIVE 



TEMP5 OC 
TEMP6 OC 
TEMP7 OC 
ASFSW OC 



TEMPORARIES AND SWITCH FOR SU3PR-INI 

WHEN PROGRAM INCLUDES ASF-ST ATEMNTS 

TEMPORARY STORAGE 

TEMPORARY STORAGE 

TEMPORARY STORAGE 

ARITHMETIC STMNT FUNC SW 
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240 SNTSW DC SU3R NAME TRANS SW 

2tfl ASFN DC Q TEMP STORAGE OF ARITH 

2k2 * *STMNT FUNC NAME 

2«f3 * 

2<^ * SU9R .GET SYM TABL ID-WORD. 

2h5 * 

2kS GETST DC CI SUBROUTINE ENTRY POINT 

2k7 AND 3 H07FF-Z GET SYM TBL POINTER 

2kB STO GETS! 1 SAVE 

2V9 LO L SOFST GET START OF SYM TBL 

250 S GETS1 1 SUBTRACT SYM TBL PT 1 TIME 

251 S GETS! i *2 TIMES 

252 S GETSi i *3 TIMES 

253 A 3 THREE-Z INCR BY 3 

25^ STO GETSI i SAVE SYM TBL LOC OF ID WO 

255 GETSI LD L »-• LOAD SYM TBL ID WORD 

256 3SC I GETST RETURN TO CALLING PROGRAM 

257 * 

258 * SUBR. TRACKSWITCH 

259 * SET UP BR TO LOC SPECIFIED IN THE 

260 * SUBROUTINE CALLING SEQUENCE DEPENDEN 

261 * ON THE VALUE IN TR 1,2 OR 3 

262 ♦ 

263 TRSW DC LINK 

26«» LD TRSW GET AODR OF LOC TO BR TO 

265 A 3 TR-7 STORED TRACKSW VALUE 

266 STO TRSW1 1 SAVE IN LINK RETURN ADDR 

267 TRSW1 BSC I RETURN TO DESIRED LOC. 

268 * 

269 * SUBR .NAMETEST. 

270 NAMT DC LINK 76 

271 S 3 TESTN-Z TESTNAME 

272 AND 3 H07FF-Z 

273 BSC Z SKIP IF SAME 
27«» MDX NAMT1 BR IF DIFFERENT 

275 MDX L LISTL,1 INCR LISTLENGTH 

276 * 

277 * TEST IF SUBPROGRAM NAME TRANSFER 

278 * SWITCH SNTSW SET 

279 * IF SET, OUTPUT L0CTR2, 

280 * OTHERWISE OUTPUT L0CTR2 1 

281 * 

282 LD SNTSW LD SW 

283 BSC I SKIP IF SWITCH NO SET 
28<* LD 3 HFFFF-Z LOAD MINUS ONE 

285 A 3 ONE- 7 ADD 1 

286 A 3 LOCC2-Z L0CCTR2 

287 OR 3 H800Q-Z TAG TO FACILITATE HANDLING 

288 BSI 3 OUTP-Z OUTPUT 

289 NAMT1 BSC I NAMT RETURN 

290 * 

291 * OUTPUT SUBROUTINE 

292 OUTP DC LINK 

293 STO 2 1 MOCE CONTENTS ACC 
29^ * *TO OUTPUT STRING 
?95 MDX 2 1 INCR O/P POINTER 

296 LD I OUTIO GET ID NORM VIM 

297 AND H07FC MASK OUT NORM VIM 

298 A 3 FOUR-Z AOD ONE TO NORM VIM 

299 SLA + LOOK AT BIT k VIM 
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■500 8SC L NOOVF,- SHOULD BE 0. BR IF SO VIM 

301 LD 3 FOUR-Z NORM TOO BIG. PUT A FO VIM 

30? STO L SOFS IN ERROR PARAMETER FOR VIM 

303 BSI L ROLRX CALL PHASE-28 

30«» DC 28 

305 NOOVF LD I OUTIO INCR NORM IN VIM 

306 A 3 FOUR-Z *IO-WD 

307 STO I OUTID *OF OUTPUT STRING 

308 * 

309 * TEST IF OSAVE I/P STRING AOOR 

310 STX LI TIN SAVE O/P STRING ADDR 

311 STX L2 TOUT 

312 LO 3 ASFSW-Z AVOID OVERLAP TEST IF 

313 8SC I OUTP,Z *ASF SWITCH SET 

3H» LD TIN GET I/P STRING ADOR 

3 15 s TOUT SUBTRACT O/P STRING AOOR 

3 16 3SC I OUTP,Z- RETURN IF NO OVERLAP ERROR 

317 * 

318 * SET OVERLAP ERROR, DISCONTINUE 

319 MDX L ERROR, 1 INCR ERROR FLAG 

320 3SC L EXIT BR TO EXIT THIS PHASE 

321 * 

322 TIN DC TEMP STO OF I/P POINTER XR1 

323 TOUT OC TEMP STO OF O/P POINTER XR2 
32U * 

325 * 

326 TEMP2 DC TEMP STO I/P POINTER 

327 * 

328 XIN DC I/P LOCATION POINTER 

329 XOUT OC O/P LOCATION POINTER 

330 * 

331 ENT LD L ERROR LOAO OVERLAP ERROR FLAG 

332 BSC L EXIT, 7 BR TO EXIT IF OVERLAP ERROR 

333 * 

33<* LOX L3 ZERO INITIALIZE TRANSFER VECTOR 

335 * 

336 * MOVE STRING TO HIGHER CORE 

337 * ADJACENT TO SYMBOL TABLE 

338 * 

339 LD L EOFS LO END OF STRING 
3<,0 S L SOFS -START OF STRING 
3M A 3 ONE-Z PLUS ONE 

31,2 STO MOVCT SAVE IN CNT OF NO. WDS 

3<»3 LDX II EOFST FIHO LOC NXT TO SYM T3L 

3^ MDX 1 -6 BUT SIX POSITIONS AWAY 

3J| 5 LDX 12 EOFS PUT ENDO OF STRING PT XR2 

3«f6 * 

3<»7 * TEST OVERLAP 

3^8 STX LI XOUT SAVE NEW O/P LOC POINTER 

31,9 STX L2 XIN SAVE NEW I/P LOC POINTER 

350 LD XOUT LD OUTPUT LOC PT 

351 S XIN LESS INPUT LOC PT 

352 BSC L MOVST,-Z BR IF NOT OVERLAP 

353 MDX L ERROR, 1 SET OVERLAP ERR FLAG 
351* 9SC L EXIT EXIT FROM THIS PHASE 

355 * 

356 MOVST LO ? MOVE STRING ITEM 

357 STO 1 *FROM I/P STRING TO O/P 

358 MDX 2 -1 DECR I/P POINTER 

359 MDX 1 -i DECR O/P POINTER 
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360 MDX L MOVCT, -1 OECR WO CNT 

361 MDX MOVST BR IF NO SKIP TO 

362 * MOVING OF NEXT ITEM 

363 LOX 12 SOFS SET XR2 START OF ORIGINAL 

364 MDX 2 -1 *STRING-i NOW O/P AREA 

365 * 

366 * IF DEFINE FILE OR DATA STATEMENT, 

367 * MOVE STATEMENT WITHOUT COUNTING 

368 * LOCATIONS 

369 * 

370 LOR LO 11 LOAD STRING WORD 

371 AND 3 HF300-Z GET 10 BITS 

372 S 3 HFOOO-Z SUBTRACT DEFN FILE ID 

373 BSC Z SKIP IF ZERO DEFN FILE 
371* S OATA SUBTRACT OATA TEST ID 

375 BSC L M1011,Z BR IF NOT OEFN FILE OR DATA 

376 * 

377 * MOVE STATEMENT 

378 LD 1 1 LO STMNT ID 

379 AND 3 H07FC-Z GET NORM COUNT 

380 STO MOVCT SAVE WD COUNT 

381 LDR1 MDX 2 i INCR INPUT CTR 

382 MDX 1 1 INCR O/P CTR 

333 LD 10 MOVE WO FROM INPUT AREA 

384 STO 2 * TO OUTPUT AREA 

385 MOX L MOVrT,-<+ OECR WD CNT BY ONE 

386 MOX LDRi BR IF NO SKIP 

387 MOX LOR BR BACK TO TEST NXT STMNT 

388 * 

389 MOVCT DC COUNT ON NO. WDS MOVEO 

390 DATA DC /P800-/F000 DATA TEST CONSTANT 

391 * 

392 * 

393 * INStRT SIZE OF WORK AREA PLUS 

39** * SIZE OF CONSTANTS AREA AS INITIAL 

395 * VALUE OF LOCATION COUNTER 

396 * DEFINEFILE AREA IS INCLUDED IN 

397 * WORK AREA SOFXT 

398 * 

399 M1011 LD L SOFXT LO SIZE OF WORK AREA 

400 A L SOFGT ADO SIZE OF CONSTANTS AREA 
<*01 STO 3 LOCC1-Z SAVE IN LOC COUNTER 

402 * 

403 M1021 MDX 1 1 INCR INPUT POINTER 

404 LO 1 LD STIRNG WORD 
t»05 AND 3 H07FC-Z STORE NORM 

if 06 STO 3 NORM-Z STMNT LENGTH COUNTER 

407 LD 1 GET STMNT TYPE 

408 AND 3 HF8Q0-Z MASK TO GET STMNT ID 

409 S 3 H6000-Z FORMAT-TYPE 
<tlQ BSC L M1031, - BR IF FORMAT 

411 LO 10 LOAD STRING WORD 

412 AND 3 HF80 0-Z MASK TO GET STMNT ID 

413 S 3 HD8 0-Z SUBTRACT CALL INTERNAL O/P 

414 BSC L M1051,Z 8R IF NOT CALL 10 

415 * 

416 * STORE LOCCOUNTERl FOR LATER USAGE 

417 * AS ENTRY POINT 

418 * FI^ST ENCOUNTERED CALL 10 STMT 

419 * 
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i»20 LD SW LO CALL I/O INITL7 SW 

k21 BSC L M10?2,Z BR IF SWITCH SET 

t*?2 LD 3 LOCCi-Z LOAO LOC CTR 

i»23 STO 3 TEMPW SAVE IN TEMP STO 



h2k 




STX 


3 


SW 


SET SWITCH 


k25 


* 










<+26 


M1022 


MDX 


2 


i 


INCR O/P POINTER 


«»27 




HDX 




H10^2 


BR TO MOVE WO TO 0/P STRING 


<»28 


* 










%29 


SW 


OC 







SWITCH INITIALLY ZERO 


i»30 


* 










*i31 


* 






MOVE FORMAT-STMNT OR CALL-I/O-STMNT 


^32 


¥ 






UNALTERED TO OUTPUT 


i»33 


* 






STRING. 


ALLOCATE STATEMENT 


«»3i» 


+ 










1*35 


M1031 


LD 


i 


1 


LD STMNT NUMBER 


**36 




STO 


2 


2 


SAVE IN O/P STRING 


<»37 




BSI 


3 


GETST-Z 


GET SYM TBL ID WORD 


i»38 




OR 


3 


2 


. ALLOCATED. 


*»39 




STO 


I 


GETS1 1 


SAVE IN SYM TBL 


<i*»0 




LD 


i 





LOAD STRING ID WORD 


<»M 




A 


3 


FOUR-Z 


INCR NORM CNT 


t*k2 




STO 


2 


1 


SAVE IN O/P STRING 


W3 




LD 


3 


LOCCI-Z 


LO LOC COUNTER WO 1 


h>*i* 




STO 


2 


3 


SAVE IN O/P STRING 


khS 




HOX 


1 


1 


INCR I/P POINTER 


%*f6 




MDX 


2 


3 


INCR O/P POINTER 


kk7 




MDX 


L 


NORM ,-8 


DECR NORM COUNT 


t*k& 


* 










ht*9 


M1041 


HDX 


I 


1 


INCR I/P POINTER 


W5Q 




MDX 


2 


1 


INCR O/P POINTER 


kSl 




HDX 


L 


LOCCi,l 


INCR LOCCOUNTERi 


<»52 


Mi0^2 


LD 


i 





MOVE WORD AT INPUT POINTER 


*»53 




STO 


2 





♦TO OUTPUT STRING 


<»5i» 




HOX 


L 


NORM,-** 


DECR STATEMENTLENGTHCOUNTER 


*»55 




HDX 




MlO^l 


BR IF NO SKIP 


«f56 




HDX 




MI021 


BR IF SKIP 


k57 


* 










*»58 


# 






PROCESS 


A STATEMENT OTHER THAN 


i»59 


* 






FORMAT-STATEHENT 


i»60 


♦ 










<»61 


M1051 


LD 


1 





LO I/P STRING ID WO 


462 




AND 


3 


HF800-Z 


GET 10 TYPE 


«i63 




S 


3 


HO000-Z 


TEST ARITH STMNT FUNC TYPE 


«»6*f 




BSC 




z 


SKIP IF ARITH STMNT FUNC 


<»65 




HOX 




M1071 


BR IF NOT 


t»66 


*# 










«»67 


* 






PROCESS 


AN ARITHMETIC STATEMENT 


2*68 


* 






FUNCTION STATEMENT 


«»69 


♦ 










4*70 


* 










^71 


* 






STORE POINTERS IN ORDER TO 


*»72 


♦ 






ESTABLISH LATER A PSEUDO STMT-ID-WOR 


«f 7 3 


* 










<»7<t 




LD 


3 


HD09*f-Z 


PUT ARITH STMNT FUNC ID WD 


^S 




STO 


2 


i 


♦PLUS 1WO NORM IN O/P 


<*76 




MDX 


?. 


1 


INCR O/P STRING PT 


*+77 




STX 


L2 


outid 


SAVE O/P STRING 10 WD PT 


«t78 




STX 


LI 


TEM»2 


SAVE I/P STRING POINTER 


*»79 


* 
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480 
481 
«»82 

483 
484 
485 
486 
487 
488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 



* 
* 
* 

LO 
BSC 
STX 
LO 
S 

STO 
M1052 LO 
BSI 
LD 
BSI 

LD 
STO 

BSI 
OR 
STO 
M1061 LO 
BSI 
MOX 
LD 

BSI 

LD 

STO 

STO 

BSC 



* 

H1071 LO 
STO 

* 

+ 
* 



TEST IF FIRST FOUND ARITH STMNT FUNC 
IF SO, STORE PT ANO LOC FOR USE 
IN SUBPROG. INITIALIZE STRING CNT 



STX 



LD 

BSC 

STO 

M1072 MDX 
LD 
BSC 
MDX 



3 
L 
L2 

3 
3 
3 

1 

3 
3 
3 



TEMP5-Z 

M1052,Z 

TEMP 5 

LOCC1-Z 

ONE-Z 

TEMP 6- 7 

1 

OUTP-Z 

LOCC1-Z 

OUTP-Z 



LO ARITH STHMT FUNC FOUND S 

BR IF SET BEFORE 

STORE POINTER 

STORE LOCCTR 

SUBTRACT 1 

SAVE IN TEMP STORAGE 

LO STRING WO 

PUT ON 0/P STRING 

LO LOC COUNTER 

PUT ON O/P STRING 



1 1 

3 ASFN-Z 



LO ARITH STMNT 
SAVE 



FUNC NAME 



GETST-Z 

TWO-Z 

GETS1 1 

H5F00-Z 

OUTP-Z 

L0CC1,1 

ZERO-Z 

S2011 

LOCC2-Z 

LOCC1-Z 

TEMP7-Z 

M1021 



GET SYM TBL ID WORD 

CON TWO ALLOCATION BIT 

SAVE IN SYM TBL 10 WORO 

LO CONSTANT BLANK WD 

OUTPUT BLANK 

INCR LOCCTR1 

ZERO TO TRACKSWITCH 

.ARITH STMNT FUNCTION. 
STRING COUNT 
LOCCTR2 TO 
♦LOCCTR1 

SAVE IN TEMP LOC 
BR TO GET NXT LOC 



PROCESS A STATEMENT OTHER THAN 
ARITHMETIC STATEMENT FUNCTION OR 
FORMAT 
3 LOCC1-Z LOCCTR1 
L COMON SAVE AS RELATIVE ENTRY PT 

SAVE XR1 FOR LATER REINITIALIZATION 
LI TINP SAVE XR1 



IF TEMP4 SET, ADDRESS THERE REPLACES 
ENTRY POINT 

3 TEMP4-Z LO TEMP4 LOCC1 IF SET 
L M1072, Z BR IF NOT SET INITLZ TO - 
L COMON SAVE AS RELATIVE ENTRY PT 

1 l INCR I/P POINTER 
L SORF GET SUBR/FUNC FLAG 

SKIP IF THIS IS A SUBPROGRA 
M1092 BR IF NOT 

OUTPUT .CALL SUBIN. WITH ITS 
ARGUMENTS IF THIS A SUBPROGRAM WITH 

DUMMY VARIABLES 

TEST IF DUMMY VAIABLES IN SYM TBL 



SEITE 10 



52*0 
5<*1 
5*2 
5*»3 
5** 
5^5 
5*f6 
5*7 
5*8 
5*9 
550 
551 
552 
553 
55* 
555 
556 
557 
558 
559 
560 
561 
562 
563 

56*» 
565 
566 
567 
568 
569 
570 
571 
572 
573 
57* 
575 
576 
577 
578 
579 
580 
581 
582 
583 
58* 
585 
586 
587 
588 
589 
590 
591 
592 
593 
59<* 
595 
596 
597 
598 
599 



M1081 LO 
STO 
LO 
STO 

H1082 LO 
RTE 
BSC 
MOX 
MDX 

M1083 RTE 
AND 
BSC 
LO 
A 
A 

STO 
S 

8SC 
HDX 
LD 
BSC 

MOX 

* 



LO 

STO 

LO 

STO 

MOX 

HOX 

MOX 

M1085 A 

STO 

M1091 LO 

* 

BSI 
LD 
A 
A 

STO 
M1092 LD 

BSI 

* 

LD 

BSC 

A 

STO 

BSC 



DUMVC-Z 

SOFST 

M1082 1 
*-# 

27 



M1083 

OUMVC,l 

5 

3 H1800-Z 
-7 

3 HFFFO-Z 

3 HFFFD-Z 
M1082 1 
M1082 1 
EOFST 
-Z 
M1082 

3 OUMVC-Z 

z 

M1085 



3 ZERO TO OUMMY 

3 DUMVC-Z * VARIABLE COUNTER 

GET START OF SYMBOL TABLE 

SAVE 

GET FIRST SYM TBL ID WD 

SHIFT OUMMY VAR BIT TO SIGN 

SKIP IF OUMMY VAR 

8R IF NOT 

INCR OUMMY VAR COUNTER 

SHIFT TO GET SYM TBL ID ACC 

MASK FOR DIMENSION BITS 

SKIP IF NOT DIMENSIONED 

LO -3 CONSTANT FOR OIM VAR 

ADD -3 CON FOR SYM TBL ENTR 

AOD CURRENT SYM TBL ID ADDR 

SAVE ID ADDR OF NXT ID 

SUBTRACT END OF SYM TBL 

SKIP IF END OF SYM TBL 

BR IF NOT 

OUMMY VAR COUNTER 

SKIP IF SUBP HAS NO DUMMY 

♦VARIABLES 

BR IF IT HAS 

OUTPUT .BLANK. STATEMENT 

STMNT-IO SAME AS FORMAT, 

SSTMNT BODY ONE ZERO-WORD 
WHICH IS LINK WORD AT OBJECT 

TEME 
3 H6008-Z LO ID WD W/ NORM 2 

2 1 PUT ON O/P STRING 

3 ZERO-Z LO ZERO WD 

2 2 PUT ON O/P STRING 

2 2 INCR OUTPUT POINTER 

. LOCCl,l INCR LOCATION COUNTER 
M1092 BR TO CONTINUE 

3 TWO-Z PUT NO. DUMMY VAR 2 
3 LISTL-Z *IN LIST LENGTH 

3 ONE-Z .ONE. TO TRACKSWITCH 

1 .SUBPROGR,, INITIALIZ.. 
S2011 STRING COUNT SUBR 

3 LOCC1-Z GET LOC COUNTER 
3 ONE-Z INCR BY 1 

3 LISTL-Z INCR BY LIST LENGTH 
3 LOCC1-Z SAVE IN LOC COUNTER 
3 TWO-Z TWO TO TRACKSWITCH 

2 .STATEMENT ALLOC. 
S2011 STRING COUNT SUBR 



STORE PROGRAM LENGTH 

MAKING IT EVEN 
L0CC2-Z LO LOC CTR 
E SKIP IF EVEN 

ONE-Z ADD 1 

SOFNS SAVE IN PRGG LENGTH 

EXIT BR TO EXIT FR THIS PHASE 



L 

L 



+ ***+*+**+* ****# + *■ **■*****.*+* + ***■**+*** + * *********** 
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600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 

618 
619 
620 
621 
622 
623 
62i» 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
6 36 
637 
638 

639 
640 
641 
642 
643 
64t» 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 



* 
* 
* 
* 
* 

* 



* 
* 
* 

* 



SUBR .STRING COUNT. 

THIS SUBROUTINE PERFORMS THREE 
DIFFERENT TASKS DEPENDING ON THE 
SETTING OF TRACKSWITCH 

IF TRACKSWITCH 

IT INITIALIZES AN ARITHMETIC STATE 
MENT FUNCTION STATEMENT 

OUTPUTS .CALL SUBIN. WITH 
ARGUMENTS 



IF TRACKSWITCH 
IT INITIALIZES 
OUTPUTS .CALL 
ARGUMENTS 



SUBPROGRAM 
SUBIM. WITH 



IF TRACKSWITCH 2 

IT ALLOCATES STATEMENTS 

AND MOVES THE STRING 
INSERTING ALLOCATIONS TO FOLLOW 
STATEMENT NUMBERS IN LABELED STMNTS 



*«.***¥**¥****¥*¥****¥*********<***-»>Mi* *****♦ + ♦♦♦*#* 



S2011 



DC 

STO 

LD 

STO 

BSI 

DC 

oc 
oc 



S2021 LD 
STO 



S2031 



S2032 



LD 

STO 

LDX 



LO 

STO 

MOX 

STX 

LD 

STO 

LO 

STO 

MDX 

STX 

MOX 

MDX 

LD 

8SC 

MDX 

S 

STO 

rtOX 

LO 



L 
3 
3 
3 

II 



3 

? 

2 
L2 
3 
2 
3 
2 
2 
L2 





TR-Z 

LOCC1-Z 

LOCC2-Z 

TRSW-Z 

S2061 

S2021 

S2091 

SOFST 

OUMVP-Z 



STADR-Z 

TINP 

INITIALI 

H500C-Z 

1 

1 

OUTID 

SU8IN-Z 

2 

H5F00-Z 

1 

3 

S2052 1 



2 -1 

L L0CC2,2 

3 DUMVC-Z 



L 

I 



S2051 

ONE-Z 

OUMVC-Z 

STA0R,1 

DUMVP 



LINK 

STORE TRACKSWITCH 

LOCCTR1 

♦TO LOCCTR2 

TRACKSWITCH 

ARITH STMNT FUNCTION 

SUBPROGRAM ^UTILIZATION 

STMNT ALLOCATION 

INITLZ DUMMY VAR POINTER 

♦IN SYMBOL TA8LE 

♦ANO SYM T8L ADDR 

♦COUNTER 

INITIALIZE INPUT POINTER 

ZE OUTPUT STMNT 
MOVE STMNT ID SUBR INITLZ 

♦ TO OUTPUT ID WORD 
INCR OUTPUT POINTER 
STORE ADDR OF OUTPUT-ID 
.CALL SUBIN. 

TO OUTPUT STRING 

♦ TO OUTPUT STRING 

INCR OUTPUT POINTER 

STORE ADDR OF BEGINNING OF 

♦LIST ON OUTPUT STRING 

DECR O/P POINTER 
INCR LOC COUNTER 
SKIP IF NOT ZERO 
BR IF ZERO 

DUMMY VAR COUNTER 

INCR SYM TBL ADDR COUNTER 

LD DUMMY VAR PT FR SYM TBL 
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660 

661 

662 

663 

66% 

665 

666 

667 

668 

669 

670 

671 

672 

673 

67% 

675 

676 

677 

678 

679 

680 

681 

682 

683 

68% 

685 

686 

687 

688 

689 

690 

691 

692 

693 

69»» 

695 

696 

697 

698 

699 

700 

701 

702 

703 

7 0% 

705 

706 

7 07 

708 

709 

710 

711 

712 

713 

71% 

715 

716 

717 

718 

719 



S203Y 

* 
* 

* 
S203X 



RTE 
8SC 
HOX 
RTE 

SLA 
BSC 
MDX 
MOX 

LO 
STO 



S2033 



* 
S20%1 



S2042 



S2051 






LD 

9SC 

STO 

LOX 

MDX 

BSC 

LO 

STO 

BSC 

RTE 

AND 

BSC 

HDX 

LO 

A 

A 

STO 

MDX 

LO 

A 

STO 

LD 

3SI 



* 
* 

* 

S2052 
S205X 



LD 

BSC 

MOX 

SRT 

BSC 



3SI 
DC 

DC 



27 SHIFT BIT TO SIGN POS 

SKIP IF DUMMY VAR 
S20«ti BR IF NOT 
5 SHIFT ID WD TO ORIGINAL POS 

8 SHIFT SUBP NAME BIT TO SIGN 

L S203Y,- BR IF NOT SUBPROGRAM NAME 

L LISTL,1 INCR LIST LENGTH 

L SNTSW,1 SET SWITCH 

3 STAOR-Z LD SY« TBL AOOR COUNTER 
3 TESTN-Z TESTNAME 

TEST IF PROGRAM INCLUDES ASF STMNTS 
IF IT DOES, SPECIAL-INITIALIZE 



3 

L 

3 
II 
L 
L 



TEMP6-Z 

S2033, - 

LOCC2-Z 

TEMP5 

ASFSW,1 

S2093 



3 LOCC1-Z 
3 LOCC2-Z 
L S2092 



L 

L 



H1800-Z 

S20%2, - 

STADR,1 

HFFFD-Z 

HFFFD-Z 

DUMVP-Z 

OUMVP-Z 

S2032 

L0CC2-Z 

LISTL-Z 

LOCC2-Z 

ONE-Z 

OUTP-Z 



BR IF PROGR INCLUDES NO ASF 

INITIALIZE LOCCTR 

INITIALIZE POINTER 

SET SWITCH 

BR TO PROCESS ASF 

LOCCTR1 

*TO L0CCTR2 

8R TO ALLOCATE STMNT 

PUT SYM T8L ID WD ALL IN AC 

TEST FOR DIMENSIONED VAR 

BR IF NONE 

INCR SYM TBL AODR COUNTER 

GET -3 FOR DIM VAR IN SYMTS 

INCR BY -3 SYM TBL CONSTANT 

ADO DUMMY VAR PT 

SAVE IN DUMMY VAR PT 

BR TO PROCESS NXT VAR 

INCR L0CCTR2 BY LIST LENGTH 

LISTLENGTH 

SAVE 

OUTPUT CONSTANT ONE 

BR TO O/P SUBR 



NOTE 

XR2 IS NOT RESTORED, SINCE IT 
MILL GET CORRECT VALUE IN 
THE PROCESS OF CORRECTING 
ARGUMENTS OF .SU8IN. 



LDX L2 *-' 



2 



S2053 

1 

S205Y,Z 



XR2 START OF LIST-O/P STRIN 

LO LIST ITEM 

SKIP IF LIST ITEM NONZERO 

BR IF ZERO 

SHIFT OUT 1 BIT 

BR IF LISTITEM NOT .ONE. 



END OF SUBIN ARGUMENTS 

3 TRSW-Z TRACKSWITCH 

S205<* ARITH STMNT FUNCTION 

S2059 SUBPROGRAM INITIALIZE 
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720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 

774 
77 5 

776 
777 
778 

779 



* 
* 
S205Y 



S2053 

* 
S2054 



S2057 



* 
S2058 



LD 

AND 

S 

BSC 

LD 

A 

STO 

MDX 
MDX 



S2059 

* 

S2061 



S2062 

* 

+ 



LDX 

LD 

ANO 

S 

STO 

3SI 

LO 

3SI 

LD 

BSC 

LD 

9SI 

LD 

9SI 

MOX 

9SC 



MDX 

STX 

LD 

STO 

MDX 



* 
S2063 



LD 
STO 

BSC 

MDX 
ANO 
BSC 
MDX 
MDX 
MDX 

LD 



INCR .SUBIN, ARGUMENTS IF GT TEMP7 
LD ARGUMENT 

REMOVE SIGN BIT 

SUBTRACT TEMF7 

BR IF LT TEMP7 

INCR VALUE 

♦IN ARGUMENT LIST 

♦BY LIST LENGTH 

INCR ARGUMENT POINTER 
BR TO TEST NXT LIST ITEM 



2 

3 H7FFF-Z 
3 TEMP7-Z 

S2053, Z 

3 LISTL-Z 

2 

2 

2 1 
S205X 



MOVE THE BODY OF 
ARITH STMNT FUNCTION 



II TINP 

1 

3 H07FC-Z 

3 FOUR-Z 

3 NORM-Z 

3 INCPT-Z 

1 

3 OUTP-Z 



NORM-Z 

S2057,Z- 

H4F80-Z 

OUTP-Z 

ASFN-Z 

OUTP-Z 

LOCC2,2 

S2011 



LO START OF STMNT XR1 

LO STMNT 10 WD 

MASK TO GET NORM 

DECR BY 1 

SAVE NORM 

8P TO INCR I/P POINTER 

LOAD STRING WORD 

BR TO PUT ON O/P STRING 

LO NORM 

BR IF NORM POSITIVE 

LD CODE FOR BSC I W/NAME 

BR TO O/P CODE 

LD ARITH STMNT FUNC NAME 

8R TO O/P NAME 

INCR LOCATION COUNTER 

RETURN 



ARITHMETIC STATEMENT FUNCTION INIT. 



1 1 
LI DUMVP 
3 ZERO-Z 
3 OUMVC-Z 
1 1 



INCR I/P POINTER 

INITIAL DUMMY VAR POINTER 

CLEAR 

♦DUMMY VAR COUNTER 

INCR I/P POINTER 



MOVE DUMMY ARGUMENTS ONE STEP 
TO MAKE ROOM FOR PSEUDO STMNT-ID 

1 LO STRING WD 

1 -1 MOVE TO CURRENT LOC-1 

SKIP IF DUMMY ARGUMENT 
♦NAME OR PACKED INSTRUCTION 

S2063 BR IF NOT 

3 H7800-Z MASK NAME 10 BITS 

Z SKIP IF DUMMY ARGUMENT NAME 

S2063 BR IF NOT 

0UMVC,1 INCR DUMMY VAR COUNT 

S2062 BR TO GET NXT VAR 

3 DUMVC-Z DUMMY VAR COUNTER 1 



SEITE H» 



780 

781 

782 

783 

7 8** 

785 

786 

787 

788 

789 

790 

791 

792 

793 

79% 

795 

796 

797 

798 

799 

800 

801 

802 

803 

80*» 

805 

806 

807 

808 

809 

810 

811 

812 

813 

81% 

815 

816 

817 

818 

819 

820 

821 

822 

823 

82% 

825 

826 

827 

828 

829 

830 

831 

832 

833 

83% 

835 

836 

837 

838 

839 



A 

STO 
MDX 
STX 



* 

* 









LD 

S 

SLA 

A 

STO 

LD 
8SI 



LD 
STO 



S2081 



* 
* 



* 



MDX 
STX 

MDX 

LD 

3SC 

MDX 

S 

STO 

LD 

STO 

BSI 

BSI 



LD 
STO 



LD 

STO 

MDX 



S2091 

* 

* 



3 ONE-Z 
3 LISTL-Z 
1 -1 
LI TINP 



*TO LIST 

♦LENGTH 

OECR I/P COUNTER 

INSERT STORED INITIAL VALUE 

♦OF TEMPORARY I/P POINTER 



PRODUCE PSEUOO-STMNT-ID WHICH IS 
REQUIRED BY OTHER PARTS OF THIS 
ROUTINE 
FOR HANDLING NORM PROPERLY 



L3 TEMP2-Z 
3 TINP-Z 
2 

I TEMP2 
1 

3 SUBIN-Z 
3 OUTP-Z 



LD START OF STMNT PT 
SUBTRACT VAL OF I/P POINTER 
SHIFT TO INCR NORM COUNT 
INCR NORM COUNT OF STMNT ID 
SAVE IN I/P STRING 

LD .SUBIN. ID WO 
OUTPUT .CALL SUBIN. 



STORE LOCATION COUNTER FOR REINITIAL 
3 LOCC2-Z LD LOC COUNTER 
3 TEMP3-Z SAVE 

INSERT AODR F BEGINNING OF 
ARGUMENT LIST 



2 1 
L2 S2052 1 

2 -1 

3 DUMVC-Z 



S2051 

ONE-Z 

OUMVC-Z 

DUMVF 

TESTN-Z 

GETST-Z 

SUBPR-Z 



INCR O/P POINTER 
SAVE O/P ADDR 
DECR O/P POINTER 

DUMMY VAR COUNTER 

SKIP IF NOT ZERO 

BR IF ZERO ENO OF LIST 

OECR OUMMY VAR COUNTER 

SAVE 

OUMMY VAR TO .TESTNAME. 

SAVE 

BR TO GET SYM TBL ID WD. 

TEST IF SUBP NAME 



ERASE DUMtfY VAR NAME IN SYM TBL TO 
AVOID MIXUP WITH SUBPROGRAM DUMMIES 

3 H0220-Z LD STMNT NO/ DEFN VAR FLAG 
I GETS1 1 SAVE AS SYM TBL ID WD. 



MDX L DUMVP,1 INCR OUMMY VAR. POINTER 



RESET LOCATION COUNTER 

TEMP3-Z LD WD FROM TEMP STORAGE 

LOCC2-Z SAVE 



S2092 



LOX II TINP 



CONTINUE 



SET INPUT POINTER 



TEST IF FIRST STATEMENT IS AN 
.END. -STATEMENT 
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8<*0 
8ifi 
842 
8i»3 
844 
845 
846 
847 
848 
81*9 
850 
851 
952 
853 
85<* 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
87^ 
875 
876 
377 
378 
879 
880 
881 
882 
883 
884 
885 
386 
887 
888 
839 
890 
891 
892 
393 
894 
395 
896 
897 
898 
399 



S2092 
S2093 



S2101 



LD 
AND 
S 
3SC 

LD 
AND 

A 
MDX 

STO 

STX 

LDX 

LO 

AND 

STO 

9SI 

DC 

DC 

OC 

LD 

BSC 

LD 

BSC 

MDX 

MOX 

BSI 

DC 

DC 

DC 

LD 

BSI 

LD 

BSI 

OR 

STO 

LD 

BSI 

BSI 

BSI 

LD 

BSC 

MOX 

BSI 

DC 

DC 

DC 

LD 

BSI 

MDX 

MDX 



* 

S2115 BSI 
MDX 

* 

* 



1 

3 HF800-Z 

3 H1000-Z 

L S2132, « 



S2102 



S2103 



S2104 
S2106 
S2111 



S2112 



1 
3 
3 
2 
2 
L2 
II 
1 
3 
3 
3 



HF8 3-Z 

FOUR-Z 

1 



OUTIO 

TINP 



H07FC-Z 

NORM-Z 

TRSW-Z 

S2106 

S21Q1 

S2101 

ASFSW-Z 

S2115,Z 

3 

£ 

S2102 

S2106 

TRSW-Z 

S210<* 

S210*» 

S2103 

1 

OUTP-Z 

1 

GETST-Z 

2 

GETS1 1 

L0CC2-Z 

OUTP-Z 

INCPT-Z 

INCPT-Z 

NORM-Z 

Z- 

S2141 

TRSW-Z 

S2112 

S2121 

S2121 



OUTP-Z 

LOCC2,l 

S2081 



LD STMNT ID WD 
MASK TO GET TYPE BITS. 
SUBTRACT END STMNT ID 
BR IF END STATEMENT 

OUTPUT ID-WO NORM 4 

MASK ID BITS 

COMPUTE NORM 4 

INCR O/P POINTER 

STORE IN OUTPUT STRING 

STORE ADDR OF OUTPUT-ID 

INITIAL I/P POINTER 

INITIALIZE STMNT LENGTH 

♦COUNTER 

* NORM 

TRACKSWITCH 

ARITH STMNT FUNC 

SUBP INITIALIZATION 

STMNT ALLOCATION 

GET ASF SW 

BR IF ASF SW SET 
LD STMNT 10 WD 
SKIP IF STMNT HAS NO LABEL 
BR IF IT HAS 
BR TO INCR I/P POINTER 
TRACKSWITCH 
ARITH STMNT FUNC 
SUBP INITIALIZATION 
STMNT ALLOCATION 
GET STMNT ID 
PUT IN O/P STRING 
GET SYM TBL ID OF STMNT NAM 
INSERT ALLOCATION BIT 

SAVE BACK IN SYM TBL 

GET LOG CTR 

PUT ON O/P STRING 

INCR INPUT POINTER 

INCR INPUT POINTER 

STMNT COUNTER FR NORM 

SKIP IF END OF STHNT 

BR IF NOT 

TRACKSWITCH 

ARITH STMNT PUNC 

SUBP INITIALIZATION 

STATEMENT ALLOCATION 

LO A CONSTANT ZERO 

PUT IN O/P STRING 

INCR LOC COUNTER 

BR TO TEST DUMMY VAR COUNTE 



ASF SWITCH SET, INCR INPUT POINTER 
ONE EXTRA WORD ALLOCATION IS ON STR 

3 INCPT-Z BR TO INCR I/P POINTER ONCE 
S21Q4 BR TO CONTINUE TO INCR PT 

TEST IF SWITCH SET IF I/P PT REFERS 
TO ASF-STTMNT IN OUTPUT STRING 





SEITE 


16 




900 


S2121 


LD 


3 ASFSW-Z 


GET ASF SW 


901 




BSC 


L S212*,Z 


BR IF SWITCH SET 


902 


* 








903 




LD 


1 


LD STMNT ID WD 


90** 




AND 


3 HF800-Z 


GET STMNT TYPE 


905 




S 


3 H1000-Z 


SUBTRACT. END. STMNT CON 


906 




BSC 


- 


SKIP IF NXT STMNT NOT .EN 


907 




MDX 


S2131 


BR IF .END. 


908 




LD 


1 


INITIALIZE STMNT LENGTH 


909 




AND 


3 H07FC-Z 


♦COUNTER 


910 




3T0 


3 NORM-Z 


* NORM 


911 




9SI 


3 TRSW-Z 


TRACKSWITCH 


912 




DC 


S2101 


ARITH STMNT FUNC 


913 




DC 


S2101 


SUBPR INITIALIZATION 


91^ 




DC 


S2122 


STATEMENT ALLOCATION 


915 


S2122 


LD 


1 


O/P NXT ID 


916 




AND 


3 HF803-Z 


INITIALIZE NORM 


917 




A 


3 FOUR-Z 


COMPUTE NORM h 


918 




STO 


2 1 


SAVE IN O/P STRING 


919 




MDX 


2 1 


INCR O/P STRING POINTER 


920 




STX 


L2 OUTID 


SAVE OUTPUT ID WORD 


921 




HDX 


S2101 


BR TO CONTINUE 


922 


* 








923 


* 




HANDLE ASF- AND FORMAT STAEMENTS 


92<» 


* 




AT SUBPROGRAM INITIALIZE STRING C( 


925 


* 








926 


S212<* 


LD 


i 


LD I/P STRING ID WORD 


927 




AND 


3 HF800-Z 


MASK TYPE BITS 


928 




S 


3 H6000-Z 


SUBTRACT FORMAT TYPE CON 


929 




BSC 


L S2126,Z 


BR IF STMNT NOT FORMAT 


930 


* 








931 


♦ 




MOVE POINTER TO NEXT STATEMENT 


932 


* 




AND COUNT IN LOCATION COUNTER 


933 


* 








93£» 




LD 


1 


LO ID WORD 


935 




AND 


3 H07FC-Z 


MASK TO GET STMNT NORM 


936 




SRA 


2 


RIGHT JUSTIFY 


937 




STO 


S2125 1 


SAVE NORM COUNT 


938 




S 


3 THREE-Z 


DO NOT COUNT ID WORD, 


939 


* 






STMNT NO. AND ALLOCATION 


9*»0 




A 


3 LOCC2-Z 


INCR LOC COUNTER 


9*»1 




STO 


3 LOCC2-Z 


SAVE IN LOC COUNTER 


9^2 


S2125 


HDX 


LI »-* 


TEST FOR ZERO NORM 


9«»3 




MOX 


S212*» 


BR IF NOT ZERO 


9ki* 


♦ 








9*»5 


S2126 


, S 


3 H7000-Z 


0000 - 6000 


9«i6 




BSC 


L S2093, - 


• BR IF ASF 


9V7 


# 








9<*8 


* 




SWITCH POINTER TO REFER TO INPUT 


9*9 


* 




STRING, 


CHANGE SWITCH 


950 


* 








951 




LD 


3 ZERO-Z 


CLEAR 


952 




STO 


3 ASFSW-Z 


♦ASF SW 


953 




LD 


3 LOCC1-Z 


MOVE LOC 


95** 




STO 


3 LOCC2-Z 


♦COUNTER 


955 




LDX 


11 TINP 


LD INPUT POINTER 


956 




MDX 


S2093 


BR 


957 


* 








958 


S2131 BSI 


3 TRSW-Z 


TRACKSWITCH 


959 




DC 


S2133 


♦SHOULD NEVER USE 



SEITE 17 



960 

961 

962 

963 

96% 

965 

966 

967 

968 

969 

970 

971 

972 

973 

97% 

975 

976 

977 

978 

979 

980 

981 

982 

933 

98% 

985 

986 

987 

988 

989 

990 

991 

992 

993 

99% 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

100% 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

101% 

1015 

1016 

1017 

1018 

1019 



S2132 



S2133 



oc 

OC 



LO 

STO 

MOX 

STX 

BSC 

LO 
BSI 



* 



S213% 



LD 

8SC 

LD 

STO 

8SC 

LD 

9SC 

S 

STO 

LD 

BSC 



S21%1 LD 
BSC 



MOX 
AND 
3SC 



S2i%3 9SI 
OC 
OC 
DC 

S2i%% LD 
S 

9SC 
LD 
BSI 
MOX 

S2i%5 LD 
BSI 

S2i%6 HDX 
MOX 



S2151 



LO 
S 

BSC 
MDX 



S2133 SU8P INITIALIZATION 

S2132 STMNT ALLOCATION 

OUTPUT .ENO. -STATEMENT 

10 LD .ENO, WORD 

2 1 PUT IN O/P STRING 

2 2 INCR O/P POINTER 

L2 EOFS INSERT END-OF-STRING 

I S2011 RETURN 

3 ZERO-Z OUTPUT 

3 OUTP-Z CONSTANT ZERO 



IF SUBPROG NAME TRANSFER SWITCH 
SNTSW SET, RUN SAME DUMMY VARIABLE 

NAME ONCE MORE 

SNTSW-Z LO TRANSFER SW 

S213%, - BR IF SW NOT SET 

ZERO-Z ZERO TO SWITCH 

SNTSW-Z 

S203X 

OUMVC-Z 



BR BACK 

DUMMY VAR COUNTER 



L S2051, - BR IF COUNT IS ZERO 



I 
L 



ONE-Z 
OUMVC-Z 
OUMVP 
S20%1 1 



1 



S2151 
H7 80 0-Z 
S21%3, • 



DECR DUMMY VAR COUNTER 

GET DUMMY VAR NAME 

TO BRANCH TO S2031 PRECEDED 

BY MOVING DUMMY VAR POINTER 

LO STRING I/P WORO 

SKIP IF WORO AT PT PACKED 

♦OR NAME ONLY 

BR IF NOT 

MASK TO GET NAME BITS 

BR IF NAME ONLY 



MDX L LOCC2,l COUNT EXTRA FOR PACKED INST 



TRSW-Z TRACKSWITCH 

S2i%% ARITH STMNT FUNC 

S2i%% SUBP INITLZ 

S2i%5 STMNT ALLOCATION 

-1 LO STRING WO 

H6200-Z TEST IF 



L S21%6, - BR IF YES 



1 
3 





NAMT-Z 

S21%6 



1 

3 OUTP-Z 
L LOCC2,l 
S2106 



LO NXT STRING WD 

NAMETEST 

BR TO INCR LOCCTR 

LO STRING WORO 
OUTPUT WORD AT POINTER 
INCR LOC CTR 
BR TO CONTINUE 



OPERATOR .LDX LI. HAS BEEN 
ENCOUNTERED 



1 

3 LDXL1-Z 

Z 

S2161 



LD STRING WO 
TEST FOR .LDX LI. 
SKIP IF .LDX LI. 
BR IF NOT 



SEITE 18 



1020 




MOX 


L 


LOCC2,l 


INCR LOCCOUNTER2 


1021 




BSI 


3 


INCPT-Z 


INCR I/P POINTER 


1022 




BSI 


3 


TRSW-2 


TRACKSWITCH 


1023 




DC 




S2i*»6 


ARITH STMNT FUNC 


102** 




DC 




S2H.6 


SUBP INITL2 


1025 




DC 




S2152 


STMNT ALLOCATION 


1026 


S2152 


LO 


1 


-1 


LO .LDX LI HO FR STRING 


1027 




BSI 


3 


OUTP-Z 


OUTPUT .LOX LI. 


1028 




MDX 




S21^5 


8R TO O/P NXT WD IN STRING 


1029 


* 










1030 


♦ 










1031 


S2161 


LD 


1 





LO STRING WORD 


1032 




S 


3 


SUBSC-Z 




1033 




BSC 




- 


TEST FOR .CALL SUBSC. 


103** 




MDX 




S2171 


BR IF .CALL SUBSC. 


1035 




LD 


1 





LO STRING WD 


1036 




AND 


3 


HFF8 0-Z 


TEST FOR .CALL SUBPROGRAM 


1037 




BSC 


L 


S3011, - 


BR IF .CALL SUBPROGRAM. 


1038 


* 








* 2- WO CALL 


1039 


* 










1040 


* 






TEST IF 


GENERATED LABEL OPERATOR 


1041 


* 










1042 




LD 


1 





LD STRING WD 


1043 




AND 


3 


HFF8 0-Z 


MASK TO GET ONLY OFERATOR 


10** *♦ 




S 


3 


H5E0O-Z 


TEST IF GENERATED LABEL 


1045 




BSC 




- 


SKIP IF NO 


1046 




MDX 




S2201 


BR IF YES 


1047 


♦ 










1048 


* 






TEST IF 


CALL SUBIN 


1049 




LD 


1 





LO STRING WD 


1050 




S 


3 


SUBIN-Z 


TEST FOR CALL SUBIN 


1051 




BSC 


L 


S2165, - 


BR IF CALL SUBIN 


1052 


* 










1053 




S 


3 


H0680-Z 


TEST FOR SOAF 


1054 




BSC 




Z 


SKIP IF SDAF 


1055 




S 


3 


HFF8 0-Z 


TEST FOR SDAT 


1056 




BSC 




Z 


SKIP IF SOAI OR SOAF 


1057 




s 


3 


HF300-Z 


TEST FOR FIOAF 


1058 




BSC 




Z 


SKIP IF ANY OF ABOVE 3 


1059 




S 


3 


HFF8 0-Z 


TEST FOR FIOAI 


1060 




BSC 




Z 


SKIP IF ANY OF ABOVE h 


1061 




S 


3 


H0880-Z 


TEST FOR UIOAF 


1062 




BSC 




Z 


SKIP IF ANY OF ABOVE 5 


1063 




S 


3 


HFF8 0-Z 


TEST FOR VIOAI 


1064 




BSC 


L 


S2162.Z 


BR IF NOT ANY OF ABOVE 


1065 




BSI 


3 


INCPT-Z 


INCR I/P POINTER 


1066 




MDX 


L 


LOCC2,l 


INCR LOC CTR 


1067 




BSI 


3 


TRSW-Z 


TRACKSWITCH 


1068 




OC 




TINE 


ASF 


1069 




OC 




FORK 


SUBP INITLZ 


107 




OC 




PRONG 


STMNT ALLOCATION 


1071 


PRONG 


LD 


1 


-1 


LO STRING WO 


1072 




BSI 


3 


OUTP-Z 


PUT OUT LIBF 


1073 




LD 


1 





LD NXT STRING WO 


1074 




BSI 


3 


OUTP-Z 


PUT OUT LIBF 


1075 




LD 


1 


1 


LO NXT STRING WD 


1076 




BSI 


3 


OUTP-Z 


PUT OUT ALLOCATION 


1077 


TINE 


MDX 


L 


LOCC2,2 


INCR LOC CTR 


1078 




BSC 


L 


S2104 


CONTINUE THROUGH STMNT 


1079 


FORK 


LO 


1 





LO STRING WD SUBP INITLZ 
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1080 
1081 
1082 
1083 
1081* 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
109* 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 

110* 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
111* 
1115 
1116 
1117 
1118 

1119 
1120 
1121 
1122 
1123 
112* 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
113* 
1135 
1136 
1137 
1138 
1139 



S2162 



BSI 

MDX 

BSI 

DC 

OC 

OC 



* 
S2165 



S2171 



S2172 



* 
S2173 



S2181 



* 
* 

S2182 



S2183 



S218* 






* 



MDX 

LD 

S 

8SG 

BSI 

HDX 



BSI 
OC 
OC 
OC 



LD 

BSI 

LD 

BSI 

LD 

BSI 

BSI 

BSI 

MDX 

BSI 

OC 

DC 

DC 



LD 

BSI 

MDX 

LD 

BSI 

LD 

BSI 

BSI 

BSI 

rtOX 



LD 

BSC 

MDX 



3 NAMT-Z TEST FOR NAME 

TINE BR TO INCR LOC CTR 

3 TRSW-Z TRACK SW 

S21*6 ASF 

S21*6 SUBP INITLZ 

S21*5 STMNT ALLOCATION 

CALL SU8IN HAS BEEN ENCOUNTERED 
MOVE POINTER PAST ARG LIST, COUNT LO 



L L0CC2,1 

1 

3 ONE-Z 
L S2106, - 

3 INCPT-Z 
S2165 



INCR LOC CTR 

LO STRING PTR 

TEST FOR END OF ARGUMENTLIS 

BR IF END 

BR TO INCR I/P PT 

BR TO CONTINUE THROUGH LIST 



.CALL SUBSC. HAS BEEN ENCOUNTERED 
3 TRSW-Z TRACKSWITCH 
S2173 ASF 

S2173 SUBP INITLZ 

S2172 STMNT ALLOCATION 

PROCESS .CALL SUBSC, SGT, D* 

10 LO STRING WD O 
3 OUTP-Z BR TO O/P WD 

11 LO STRING WO 1 
3 OUTP-Z BR TO O/P WO 

12 LD STRING WO 2 
3 OUTP-Z BR TO O/P WD 

3 INCPT-Z INCR I/P POINTER ONCE 

3 INCPT-Z INCR I/P POINTER AGAIN 

L LOCC2,3 INCR LOC CTR BY 3 

3 TRSW-Z TRACKSWITCH 

S2182 ASF 

52182 SUBP INITLZ 

52183 STMNT ALLOCATION 

PROCESS 01 OR 02 OR 03 
AND A VARIABLE 

11 LD STRING WO. 

3 NAMT-Z NAMETEST 

S218* BR TO CONTINUE 

11 LD STRING WD1 

3 OUTP-Z PUT ON O/P STRING 

12 LD STRING W02 

3 OUTP-Z BR TO PUT ON STRING 

3 INCPT-Z INCR I/P POINTER ONCE 

3 INCPT-Z INCR I/P POINTER TWICE 

L LOCC2,2 INCR LOC CTR BY 2 

TEST IF LAST TAGGED ARGUMENT 
1 
L S2106, Z LO NXT STRING WD 

S2181 BR IF WD NEGATIVE 

BR TO CONTINUE THROUGH STRI 



SEITE 20 



1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
116<* 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
117*t 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
118*+ 
1185 
1186 
1187 
1188 
1189 
1.1$ 
1191 
1192 
1193 
119«» 
1195 
1196 
1197 
1198 
1199 



* 
S2201 



S2202 



* 



S2203 



LD 

AND 

A 

STO 

LD 

3SC 

MDX 



LD 

STO 

9SC 



STO 

LD 

STO 

8SI 

DC 

OC 

DC 



* 
* 

* 

S2211 



S2216 

* 

* 
S3011 



LD 

8SI 

LD 

8SI 

NOX 

8SC 



S3012 



* 

* 

* 
* 
S3013 



8SI 

MDX 

9SI 

DC 
DC 
DC 

LD 
3SI 

BSC 



LD 
8SI 
AND 
BSC 



GENERATED LABEL OPERATOR HAS BEEN 
ENCOUNTERED 

10 LO STRING WO 

3 H007F-Z MASK TO GET PT IN TABLE 

3 GLTBO-Z TABLE ORIGIN ADDRESS 

52202 1 SAVE AOOR 

L •-* LD TABLE WO 

Z SKIP IF NOT IN TABLE 

52203 BR IF IN TABLE 

INSERT INTO TABLE 
3 LOCC2-Z INSERT L0CCTR2 AS 
I S2202 1 * TABLE VALUE 
L S2106 BR TO CONTINUE 

ELIMINATE FROM TABLE 



3 TEMPi-Z 

3 
C S2202 1 

3 TRSW-Z 
32216 
S2216 
S2211 



L 
L 



STORE TABLE VALUE 
ZERO TO TABLE 

TRACKSWITCH 

ASF 

SUSP INITLZ 

STMNT ALLOCATION 



OUTPUT SPECIAL BSC L 



SBSCL-Z 

OUTP-Z 

TEMPi-Z 

OUTP-Z 

LOCC2,2 

S2106 



OUTP .SPEC BSC 
BR TO O/P SUBR 
OUTPUT VALUE FR 
* LABEL TABLE 
INCR LOG CTR BY 
BR TO CONTINUE 



L. 



GENERATED 



.CALL. -OPERATOR HAS BEEN ENCOUNTERED 
INCR INPUT POINTER AND LOCCOUNTER 2 
3 INCPT-Z 



L LOCC2,l 

3 TRSW-Z 
S3012 
S3012 
S3013 

1 

3 NAMT-Z 
L S2146 



BR TO INCR I/P POINTER 
INCR LOC CTR 

TRACKSWITCH 

ASF 

SUSP INITLZ 

STMNT ALLOC 

LD STRING WD 
TEST IF NAME 
PR TO INCR LOC CTR 



TEST IF NAME 
DUMMY VARIABLE 



1 

3 GETST-Z 

3 H0400-Z 

L S3015,Z 



LD STRING WO 
8R TO GET SYM TBL ID WD 
MASK FOR DUMMY VAR BIT 
BR IF DUMMY VARIABLE 
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1200 
1201 
1202 
1203 
120i» 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
121*» 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
122«t 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
123*» 
1235 
1236 
1237 



* 
* 



OUTPUT .CALL SUBPROGRAM. AND 

NAME 

WORDS AT POINTER - 1 AND 
AT POINTER 



LD 1 -1 

8SI 3 OUTP-Z 

LD 10 

8SI 3 OUTP-Z 

8SC L S2i<*6 



LD WD AT POINTER-1 

BR TO O/P 

ID WD AT POINTER 

BR TO O/P 

BR TO CONTINUE THROUGH STMN 



* 

S3015 LD 
BSI 
LD 
BSI 
BSC 

H*»780 DC 

* 



NAME IS BOTH DUMMY VARIABLE ANO 

EXTERNAL 

OUTPUT BSI I, NAME AT POINTER 

Hl»780 LD .BSI I. CONSTANT 

3 OUTP-Z PUT ON O/P STRING 

10 LD NAME FR I/P STRING 

3 OUTP-Z PUT ON O/P STRING 

L S21*»6 BR TO CONTINUE 

M78 .BSI I. 



GLABT OC 
DC 
DC 
DC 

EXIT BSI 
DC 
8SS 
END 










GENERATED LABEL TABLE 
WORKING WORDS 
WORKING WORDS 
WORKING WORDS 



ROLRX CALL DOWN PHASE 23 

23 NEXT PHASE NUMBER 

OVERL-*+320*3 PHASE-22 PATCH AREA 

NEQ 



